PPPPPPPPPPPP LLL 111111111 RRRRRRRRRRRR TITTTTTTTTTTTITT LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTITT § LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL 

PPP PPP LLL II] RER RRR TTT LLL 

PRP PPP LLL III one RRR TTT LLL 

PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] ROR RRR TTT LLL 
PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] dd TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL III RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PRP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

BPP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

PRP Lil II] AER RRR TTT LLL 
PPP LLL I]] FOR RRR TTT LLL 
PPP LELLLLELLLLLLLL IIIIIII11 RRR PRR TTT LLLLLLLLLLLLLLL 

PPP LELLLLELLLLLLLL IIIIIII11 RAR RRR TTT LLLLLLLLELLLLLLE | 
PPP LLLLLLLLLLLLLLL IIIIII111 RRR RRR TTT LELLLLELLLLLLLL 


* 
—8 


in 
ix 
13 


— — — — — — — — — — — — — — — — — 


— — — — — — — — — — 


PRPPZ PPPPVPP PPP ——— 


— —— 


227222222 


**F ILE**1D**PLIRTDEF 


PPPPPPPP LL III111  RRRRRRRR  ITITTTTTTT DDDDDDDD EEEEEEEEEE FF 
PPPPPPPP LL 111111 RRRRRRRR  =TTTTTTTTTT DDDDDDDD  EEEEEEEEEE FF 
PP PP LL I] PR RR TT DD DD EE FF 
PP PP LL I] RR RR TT DD DD EE FF 
PP PP LL I] J RR TT DD DD EE FF 
PP PP LL I] aa RR TT DD DD EE FF 
PPPPPPPP ss LL Il RRRRRRRR TT DD DD EEEEEEEE FFFFFFFF 
PPPPPPPP = LL I] RRRRRRRR TT DD EEEEEEEE FFFFFFFF 
PP LL I] RR RR TT DD DD EE FF 
PP LL I] RR RR TT DD DD EE FF 
PP LL I] RR = RR TT DD DD EE ai ows 
PP LL I] RR = RR TT DD DD EE FF weed 
PP LLLLLLLLLL tiiu © =—oRR RR TT DDDDDDDD ~=- EEEEEEEEEE FF * 
PP LLLLLLLLEE iüiiiiie ß RR TT DDDDDDDD = EEEEEEEEEE FF — 
| 
ad MM  AAAAAA — RRRRRRRR 
aa MM = AAAAAA ~_— RRRRRRRR | 
MMMM MMMM AA AA RR RR 
MMMM MMMM = AA AA RR RR 
MM MM MM AA AA RR RR 
mM MM = OMM AA AA RR RR 
mn MM AA AA RRRRRRRR 
moe MM AA AA RRRRRRRR | 
mie MM AAAAAAAAAA RR RR | 
* MM AAAAAAAAAA RR RR 
mi MM AA AA RR RR | 
om MM AA AA RR RR | 
ala MM AA AA RR RR 
um MM AA AA RR RR 
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itle pli.rt_macros = Defines general pli runtime macros 
“Toent Pi -0087 ° : ; Edit: 33 
3; Edit: WHM 


SSASKHRHH KRHA KEHHHHAEeeeeeeeeeeeetietekeeeeeeeeeeeeeedeteteeeeetetereeeee 


COPYRIGHT (c) 1978 1980 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


-@ 

-@ 

-@ 

-@ 

-@ 

* S SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPLED 
j# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
: INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
: COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO. ANY 
:® GTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
* TRANSFERRED. 

-@ 
:# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:® CORPORATION. 

-@ 
-@ 
:@ 
ook 
-@ 
-@ 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


aeneneneeeneee ee eeeeeanane 


(ARBAB RASAALALALASELALALELALLASAL ELE S ESAS ESA SEAR E EEE RARE ARERR ARREARS ARREARS SY 


Author: Bill Matthews 
; ; Functional Description: 
; Define PL/I Runtime macros. 
: Modifications: 
1-002 Bill Matthews 11-Apr-1983 
Removed $defdat macro. DATDEF.SDL now generates S$defdat. 
1-003 Chip Nylander 08-Aug-1983 
Added str_l_parent to the stream control block structure. 


; case macro = generates a case instruction 


MACRO CASE, SRC DISPLIST, TYPE=W,LIMIT=#0 ,NMODE=S*#, ?BASE , 2MAX 
CASE ' TYPE SRC LIMIT .NMODE '<<MAX-BASE>/2>~1 


- IRP EP,<DISPLIST> 
D EP-BASE 


BASE: 


-ENDM CASE 


MAX: 


H 
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* 
* 


macro to generate a offset list for a data structure 


it is useful for input argument Lists positively indexed from ap, and 
work areas allocated in call stack and negatively indexed from fp. 


call: Soffset initial direction,<<lab1,{size]>,...,<labn,Csize]>> 


where: initial is a required value for the intial index when 
originating a data structure definition. it is normally 
(+) 4 for argument Lists and 0 for work areas. 


direction is a keyword that must be: 
positive = for structures growing up in memeory 
negative - for structures grouing down in memeory 
or blank, in which case POSITIVE is assumed. 


the label, size list is the symbolic name for the Location 
and the optional size of the element. if blank, size is 
assumed to be 4 ( one longword ). 


the macro may —e continued. in this case the TIAL and 
DIRECTION arg.*ents must be blank. 


«MACRO SOFFSET INITVALUE,DIRECTION,SYMLST 
-save 
-psect Sabs$,abs 
-if b,initvalue 
-if nb,direction 
-error ; direction must be blank when contiuing; 


| 
to permit the definition of an indefinitly are —— of labels, | 
| 


-mexit 

-endc 

iff 

dir...21 

-=initvalue 

-if nb,direction 
“}t ton <direction>,<positive> 
-if idm <direction>,<negative> 

ad 1 aaa 
error ; DIRECTION must be POSITIVE.NEGATIVE, of blank; 

» c 

ende 

ende 
— <symlst> 

-irp sym,<symls 
Softsts —— 

-endr 


-restore 
-ENDM = SOFFSET 


-MACRO SOFFST1 SYM,SI2=4 
.if Lt,siz 


= —ñ — — — 
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-error ;eeree siz parameter negative etre; 


° Cc 
if t,dir... 
sbikb =i 


oe 

-if nb,sym 
oe 
“blkb 
-endc 
-ENDM SOFFSTI 


sym: 
gt.dir... 
siz 


; psect definition MACRO 


-MACRO RTSHARE define shared psect 
poest — rd she, nourt. Long 


Define the PL/I Runtime read-only data 

; -macro pli_vl_read_only_data 

; define the ascii character set for collate 
pli$ab_colat:: 

x=0 


x=0 


: 3; define packed decimal constants 


Li$d oo 
p * acked ~1 


-endm = pli_vi_read_only_data 
cro pli v2. read_only_data 


pliso_ pai 2 “pout a FE 1 | 
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pli$o * 
ms pak 524288 


wer eked 1048576 


. sathed 0 — 


Li$Sb_pac_? r 
, * 5 thea 194304 


ii$p Ht 
Pan Pe aTked 0008388608 


4:: 
777216 
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1 
| PLI 
LiSb_pac_2 30 
ae po Barked 0536870912 ae 
ac 38 
ʒcko 1073761824 
ec. 
cee oat cetked 2147483648 
onde | 
end =. 
i+ $de 
3; define condition handler control blocks —* 
8de 
-MACRO SDEFCND sce 
Sdefini cnd ace 
e 
$def cnd_lt_link eblkl = 1 slink entr $de 
$def cnd_l_enabl eblkl = 1 yenable valu 
$def cnd_l_addr eblkt 1 zaddress of “hendler routine 
Sdef cnd_l_arg eblkt 1 
— ty fcb of associated file 
Sdet cnd_\_flags eblkt 1 flags longword 
-vield cnd,0,<- 3 
<nocall,1,m>, tdoes not require call interface 
Sdef cnd_k_length plength of block 
Sdefend cnd 


-mdelete Sdefcnd 
-ENDM SDEFCND 


zscondition handler argument 
| 
| 


;¢ 
3; define convert case table indices 


-MACRO SDEFCVTIND 


: NOTE WELL: CHANGES MADE HERE MUST BE REFLECTED IN THE CODE GENERATOR, 

: THE RUNTIME FORMAT CONVERSION ROUTINES, THE RUNTIME 

; CONVERT ROUTINE, AND ANYWHERE ELSE THAT BREAKS. YOU’ 

; ALSO WANT TO CHECK PUT LIST ITEM, PUT EDIT ITEM, GET LIST 
; ITEM AND GET EDIT ITEM, IF YOU ADD ENTRIES. GOOD LUCK 


Sdefini cvtind 


Sequist cvt_k_dst_,,0,1,< * 
<pic>, = 


; sdefine destination indices 
p 


spicture 


<fixb>, - stixed binary 

<fltb>, = ifloat binary 

<fixd>, - ifixed decimal 

<fltd>, - sfloat decimal 

<char>, = ;character 

<vcha>, - ;character varying 

<bit>, - sbit 

<abit>, * zaligned bit 
Sequist cvt_k_src_,,0,9,< - :define source indices 

<pic>, - picture 

<fixb>, ifixed binary 

<fltb>, ifloat binary 


sfixed decimal 


A 
— 
~ 
= 
a 
v 

7 

teeverne 


<fltd>, sfloat decimal 
<char>, ;character 

<vcha>, icharacter varying 
<bit>, - bit 

<abit>, - saligned bit 


> 
S$Sdefend cvtind 


-MDELETE SDEFCVTIND 
-ENDM SDEFCVTIND 
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K 
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. "define ie olast TE used be #411 be th tile display block by th 
s use 0 n e users e spla oc the 
pr SPLRy built in subroutine. i : 


«MACRO SDEFDSP 
Sdefini dsp 


Sdef block HH 

$def buckef_size 

$def creation_date 

S$def expiration_date 

Sdef extension_Size 
file_id 


Sdef filesize 

$def fixed_control_size 

S$def index_number 

Sdef max imum_record_number 

Sdef max imum_record_size 

$def multiblock_count 

$Sdef mult ibuffer_count 

$def owner group 

Sdef owner_member 

Sdef retrieval_pointers 

Sdef Linesize 

Sdef pagesize 

$def page. number 
ine_number 

Sdef column_number 

Sdef —— “of _keys 


Sdef —8 

8de f sꝑooldevice 

$def file “Brganizetion 
$de! group_protection 
$deft owner_protection 
$def system_protection 
$def world protection 
$def expanded_title 
S$def dspend 


vield dtr,0,<- 

<fortran_ format,1,m>- 

<block =boundary. format, 1,m>- 

<supersede,1,m>= 

<temporary,1,m>- 

_i0,1,m>= 

<deferred *write,1 m>- 
<carriage_return format, 1,m>- 
<rewind_on_open,1,m>=- 
<current_position,1,m>=- 
<write_check,1,m>= 
<fixed_ tength. records. 1,m>- 
<rewind_on_clise,1 /m>= 
<ignore~line_marks,1,m>- 


sdisplayed attributes (see below) 


coocooococococccvccccccccCcCccCcCcCcCcCcCCCSO 
A A EA A LS LL LL LA LO: OL LO LS FO LS LO LF FN SR NN 
, ee ee eee ee ee eee ee eee ee ee le 
SCF FF — — 
— — — — — — — — SO oy OS 


— — — — — — —— —— — —— —— — —— ————— ——————— —— 


N 
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<spool,1,m>= 
<batch,1,m>=- 
<delete,{,m>- 
<initial_fill,1,mo= 
<no_share,1,m>=- 
<printer format. 1 .m>- 
<write_behind,1,m>= 
<cont iguous,1,m>=- 
<contiguous_best_try,1,m>=- 
<read_ahead,1,m>=- 
<read_check,1,m>=- 
<shared_read,{,m>- 
<shared_write,1,m>- 
<extral,1,m>= 
<extra2,1,m>- 
<truncate,1,m>=- 
<update,?,m>= 
<output,1,m>= 
<input,1,m>=- 


——— 
<keyed,1,m>=- 
| 


<direct,1,m>=- 
<sequential,1,m>- 
<stream,1,m>=- 
<record,1,m>=- 
<scalarvarying,1,m>- 
<append,1,m>,- 
<record_id_access,1,m>=- 
<indexed,1,m>- 


> 
$defend dsp 


-MDELETE SDEFDSP 
-ENDM $DEFDSP 
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+ 
define environment block 
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control wet: is used to pass environment information from 


this 
pli$$envir to pl 
xab's. 


sMACRO SDEFENV 
S$defini env 


env_l status -bLkL 
env_q_credate ebLkL 
env_q_expdate ebLkL 
env_l_fileidto -bLkL 
env_l_fxctlto -bLkL 
env_w_prot -blkw 
env_w_owngroup eblkw 
env_w_ownmem bl kw 
env_k_len 


vield env,0,<- 
<create_dat,1,m>, - 
<expire_dat,1,m>, - 
<fileid to,{,m>, * 
<fixedcEl_to,1,m>, - 
<protect,1,m>, - 
<uic,1,m>, - 
<close.!.m>, * 


$defend env 


-MDELETE SDEFENV 
-ENDM SDEFENV 


~~ — — —— 


$Sopen, for inclusion in the dynamically allocated 


petets from env processing 
;creation date 

sexpiration date 

saddr of file_id_to 

zaddr of fixed_control_to 
protection bits 
;owner_group 

;owner_member 


screation_date was specified 
paae tras ton.cete was specified 
:file_id_to was specified 
ifixed_control_to was specified 
:*_protection was specified 
sowner_* was specified 

sprocess environment for close 


ENV 


tre 
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30 
; define runtime file control block 


-MACRO SDEFFCB 
$defini fcb 


fcb_l_next eblkl 4 zador of next open file 
fcb_l_previous .blkl 1 saddr of last open file 
fcb_l_error -blkl = 1 most recent error code 
fcb_l_attr -blkl 1 current file attributes 
fcb_l_dttr -blkl = 1 sdeclared file attributes 
fcb_l_buf eblkl 1 saddress of file buffer 
fcb_l_buf_end .blkl 1 saddress of end of buffer (stream) 
; length of allocated buffer (record) 
fcb_l_buf_pt eblkl = 1 saddress of next byte to be processed 
: in buffer (stream) 
fcb_aq_rfa eblkl 2 irfa of last record processed (record) 
feb_w.revision .blkw 1 sversion of the file control block (set 
3; by valloc, checked by open) 
feb_w_linesize .blkw 1 slinesize (stream) 
fcb_w_pagesize .blkw 1 spagesize (stream) 
fcb_w_ column -blkw = 1 current column (stream) 
fcb_w_line -blkw = 1 scurrent Line number (stream) 
fcb_w_page eblkw 1 current page number (stream) 
feb_c_strlen length of the vestigal file control 
; block used for get and put string 
fcb_t_prn eblkl 14 sprinter control buffer (stream) 
feb_l_kcb eblkl 1 zsaddr of key control block (record) 
feb_b_numkcbs .blkb 1 snumber of keys (record) 
fcb_b_extra eblkb 3 sextra 
fcb_b_ident ifiles declared name 
fcb_w_ident_len .blkw 1 zslength of files declared name 
fcb_b_ident_nam .blkb 32 ztext of files declared name 
fcb_b_rab -blkb 68 record acess block 
fcb_b_fab -blkb 80 ifile access block 
fcb_b_nam -blkb 56 zname block 
fcb_b_esa -blkb 128 expanded one tep area . 
fcb_l_condit -blkl = 1 sentry for hand ing conditions which 
fceb_l_cndaddr .blkl 4 sjsb's to cndaddr (filled in by open) 
fcb_b_envir start of the environment bloc 
fcb_c_len 
-vield atr,0,<- zattributes (used for attr and dttr) 
<eof,i,m>,- send of file 
<opened,1,m>,- ifile is opened : 
<comma_exp,1,m>,> scomma is expected in List input 
<recur,1,m>,- ast re-entrant lock 
<update,{,m>,- jupdate attribute 
<output,1,m>,- output attribute 
<input. {,m>,- zinput attribute 
——2— eprint attribute 
<keyed,1,m>,>- skeyed attribute 
<direct,{,m>,- sdirect attribute 
<seql,1,m>,- ssequential attribute 
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j 
<stream,1,m>,- ;stream attribute 
<record,1,m>,- irecord attribute 
<scalvar,1,m>,- :scalar_varying 
<app,1,m>,- ;append 
<recidacc,1,m>,= srecord_id access allowed 
<indexed,{,m>,- sfile is indexed 
<bfall,1,m>,- sbuffer is allocated for rewrite 
<currec,{,m>,- irms current record context is in- 

3; correct by pl/i rules 
<delete,1,m>,- ;last completed operation was delete 
<write,1,m> ~ :last completed operation was write 
<app_conma, { »m>,~ signore Linemarks was not specified 
<blockio,1,m>,=- zblock i/o *2* allowed 
<string,1,m>,- ;string i/o in progress 


<vcha,1,m>,=- varying character string target 
<vir in. 1,m>,- sfile was just opened 
<flttrg,1,m>, 


:floating target in get 


$defend fcb 


-MDELETE SDEFFCB 
-ENDM SDEFFCB 
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+ 
define options for get statement 


«MACRO SDEFGETOPT 
Sdefini getopt 


$def getopt_l_fxdctl .blkl 1 zsaddress of fixed control area 
Sdef topt_l“prompt .bikl 1 saddress of prompt (char var) 
$def getopt_b_t -blkb 1 timeout in seconds 
$def getopt_b bits .blkb 1 jadditional bit options 
Sdef getopt_c_len ; 
_vield get. t,0,<=- 
no_ echo,1,m>,- Suse read no echo (1) 
<use ,tmo.1.m>, - suse timeout specified above (2) 
<upper case,1,m>,- sconvert to upper case (4) 
<no_filter,1,m>,- use read no filter (8) 
<extra,1,m>,- yextra, not used by rms (10) 
<purge_tah, (=, - purge type ahead (20) 
<prompt,1,m>.= suse prompt above (40) 


* 
$Sdefend getopt 


-MDELETE SDEFGETOPT 
-ENDM SDEFGETOPT 


F 
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* 
; key control block for indexed files 
«MACRO SDEFKCB 


. 
— — — — — 


Sdefini kcb 
$def kcb_l_dtyp -blkl = 1 spl/i data type of key 
$def kcb_l_pre eblklt = 1 spl/i precision/scale of key 
Sdef cb_w_pos eblkw = 1 position of key in record 
$deft kcb_w_len -blkw 1 zlength of bey n bytes 
$def kcb_w_pos eblkw = 1 position of ey in record 
$def kcb_w_len eblkw = 1 3 ength of hey n bytes 
$def kcb_w_pos eblkw = pos tion o ey in record 
Sdef kcb_w_len eblkw 1 zslength of key n bytes 
$def kcb_w_pos -blkw 1 position of ey in record 
$def kcb_w len «blkw 1 zlength of hey n bytes 
$def kcb_w_pos4 -blkw = 1 ve tion of ey in record 
$def kcb_w_len4 eblkw 1 zlength of key n bytes 
Sdef kcb_w_pos5 eblkw 1 position of ey in record 
$def kcb_w_lenS eblkw 1 3 ones? of a°7 n bytes 
$def kcb_w_pos6 eblkw = ayes tion of ey in record 
$def cb_w_ 2 -blkw 1 zlength of bey n bytes 
$def kcb_w_pos eblkw = 1 sposition of key in record 
$def kcb_w_len7 -blkw 1 length of key in bytes 
$def kcb_l_zero eblkl 1 zero (for ending loops) 
$def kcb_c_len zlength of key control block 

$defend kcb 


-MDELETE SDEFKCB 
-ENDM SDEFKCB 
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30 
; define picture control block 


| 
. | 
| 


anne —— 
i? pe iP. 3 
picSb_type ; typ 
$equ pic$b_prog_size ; proeren size 
$equ picsb_ jte.size 4 ; size of cherecter string 
$equ picSb_f ags ; flags bits 
vield pic,0,<- : 
<minus,1,m>,- 3 
<t_tormat,1,m>,- 3; t format 
<i_format,1,m>,- 3 —* 
<r_format,1,m>,- 3; rf forma 
chas _Sign,1,m>,- ; has a ston specifier 


Sequ picSb_ Lona 
$equ picSc_ “ts edit. 
$equ c pc 
$equ * * 


c$b pr 
Sequ pictb-p -P = 
-mdelete Sdefpic 
-ENDM SDEFPIC 


; language of picture program 
; type is runtime edit 

; type is editpc 

; spare 


on-Oooe 
Se ee ee eee 


30 
; run time constant definitions 
, -MACRO SDEFPLIRTCONS 


Sdefini pix 
$equ Li$c_defins sgeteutt lin 
$equ zu c_defars i — record size 
$equ pli$c_version Nore rs 0 
$equ pli$c_icr 41 carriage return for prn files 
Sdefend plx 


-MDELETE SDEFPLIRTCONS 
-ENDM = SDEFPLIRTCONS 
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;¢ 
; define options for put statement 
«MACRO SDEFPUTOPT 


Sdefini putopt 
$def putopt_l_fxdctl .blikl 1 address of fixed control area 
$def putopt_b bits .blkb 1 sadditional bit options 
Sdef putopt_c_len ; 

_vield gut. 0,<- ; 

. _con_o,1,m>,= cancel control o 

Sdefend putopt 


-MDELETE og php dl 
-ENDM S$DEFPUTOP 
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30 
; define runtime scanc/spanc table 


«MACRO SDEFRTSCAN 
Sdefini rtscan 


vuvvvT7e 
— —— —— 


232882 


$ 


7scan 
7scan 
.scan 
2scan 
2scan 
2scan 


mask for space 
mask for 


mask 
mask 
mask 
mask 
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comma 
ay point 


tab 
space and tab 


See PO aa aE 


K 
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3* 
; define runtime stack 


-MACRO SDEFSTK 


Sdefini stk 
=.-12 

Sdef = stk_licnd_tst  .blkt 1 ; condition handler List 
$def stk larg list .blkl 1 argument pointer 
$de{ stk lt display .blkl 1 iparent's ‘opt ey gointer 
$def stk l.cnd_hnd = 1 saddress o gone tion handler 
$def stk_l_psl -blki 1 psw and register save mask 
$def stk_l_ap eblkl 1 ;saved argument pointer 
$def stk_l_fp eblki 1 saved frame pointer 
$def stk_lpc eblkl 1 ; saved progres counter 
Sdef stk_l_regs saved registers 

Sdefend stk 


-mdelete SDEFSTK 
-ENDM SDEFSTK 


18 


PL 
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3* 
; define stream i/o control block 


BLLLLLLL 


-MACRO SDEFSTR 
Sdefini str 


008 
11 


eS = —— 
= — ————— 


str_l“stac 
str_c_len 


-vield str 0,<- 
<missing,1,m>, - 
<edit,1,m>, - 
<string,1,m>, =- 
<blankend,1,m>, =- 
<gfloat,1,m>, - 
<null_line,1.m>, - 


> 
Sdefend str 


-MDELETE SDEFSTR 
-ENDM SDEFSTR 


end 
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:format interpreter stack pointer 
sformat pointer 
sparent pointer 

3; format status 
ddress of next fr 
saddress of end of 


sstack storage 
zlength of stream block 


status bits for stream block 

last format parameter was missing = % 

edit directed = 1, list directed = 0 
ut string in progress 

lanks to end of field 

rocessing gfloat value 

ast record read was null 


PMENT CORPORATION = 
SAND PROPRIETARY 


